home *** CD-ROM | disk | FTP | other *** search
- (complete 0)
- (set default_lang 4)
-
- (set #bad-kick
- (cat "You must be using Kickstart 3.0 to install this game"
- ))
-
- (set #which-disk
- (cat "In which partition should the game be installed?"
- ))
-
- (set #which-disk-help
- (cat "\nThis section lets you choose on which hard drive partition the "
- "Game files will be installed. "
- @askdir-help
- ))
-
- ;=============================================================================
- ; make sure we are running under V39
-
- (if (< (/ (getversion) 65536) 39)
- (
- (abort #bad-kick)
- ))
-
- (user 0)
- (welcome)
- (set old_level @user-level)
-
- ;=============================================================================
- ; get the version from medplayer.library currently installed
-
- (if (= (exists "Libs:medplayer.library") 1)
- (
- (protect "Libs:medplayer.library" "+rwed")
- )
- )
- (copylib
- (prompt ("Copying %s to %s" "REKO01:libs/medplayer.library" "Libs:"))
- (help copyLibFileHelp
- "\n"
- "If you already have a copy of this library in the selected destination directory, the library "
- "included on the distribution disk will be compared to the one you "
- "already have. If your current library is an old version, the newer "
- "version will be installed.\n"
- "\n"
- @copylib-help
- )
- (source "REKO01:libs/medplayer.library")
- (dest "Libs:")
- (confirm)
- )
-
- (complete 5)
-
- ;=============================================================================
- ; get target directory where game is to be installed
-
- (set old_wb ("SYS:"))
- (user 2)
- (set target (askdir (prompt #which-disk)
- (help #which-disk-help)
- (default "")
- (disk)
- ))
- (user old_level)
-
- (makedir (tackon target "REKO-Productions"))
- (set wtarget target)
-
- (copyfiles (source "REKO01:REKO.infa")
- (dest wtarget)
- )
- (rename (tackon wtarget "REKO.infa") (tackon wtarget "REKO-Productions.info"))
-
- (set target (tackon target "REKO-Productions"))
- (set @default-dest target)
- (set wtarget target)
-
- ;=============================================================================
- ; Put REKOCHARS in Fonts: directory
-
- (copyfiles (source "REKO01:FONTS")
- (dest "FONTS:")
- (pattern "REKO#?")
- )
-
- ;=============================================================================
- ; Put REKO command in C: directory
-
- (copyfiles (source "REKO01:C/REKO")
- (dest "C:")
- )
-
- ;=============================================================================
- ; make some new drawers
-
- (makedir (tackon wtarget "PICS"))
- (makedir (tackon wtarget "MUSIC"))
- (makedir (tackon wtarget "CARDS"))
-
-
- (copyfiles (source "REKO01:REKO.infa")
- (dest wtarget)
- )
- (rename (tackon wtarget "REKO.infa") (tackon wtarget "MAKE-CARDS.info"))
-
- (copyfiles (source "REKO01:Klondike-Deluxe-AGA.info")
- (dest wtarget)
- )
-
- (copyfiles (source "REKO01:Klondike-Deluxe-AGA.HD")
- (dest wtarget)
- )
- (rename (tackon wtarget "Klondike-Deluxe-AGA.HD") (tackon wtarget "Klondike-Deluxe-AGA"))
-
- (copyfiles (source "REKO01:REKO.Prefs.HD")
- (dest wtarget)
- )
- (rename (tackon wtarget "REKO.Prefs.HD") (tackon wtarget "REKO.Prefs"))
-
- (complete 10)
-
- (copyfiles (source "REKO01:Intro.MUSX")
- (dest (tackon wtarget "MUSIC"))
- )
-
- (complete 20)
-
- (copyfiles (source "REKO01:Intro.REKO")
- (dest (tackon wtarget "PICS"))
- )
-
- (complete 30)
-
- (copyfiles (source "REKO01:")
- (dest wtarget)
- (pattern "REKO.Docs#?")
- )
-
- (complete 31)
-
- (copyfiles (source "REKO01:FullView")
- (dest wtarget)
- )
-
- (complete 32)
-
- (copyfiles (source "REKO01:")
- (dest wtarget)
- (pattern "REKO.QRCard#?")
- )
-
- (complete 33)
-
- (copyfiles (source "REKO02:Default.REKO")
- (dest (tackon wtarget "CARDS"))
- )
-
- (complete 66)
-
- (copyfiles (source "REKO03:")
- (dest wtarget)
- (pattern "MAKE#?")
- )
-
- (complete 70)
-
- (copyfiles (source "REKO03:Default.MUSX")
- (dest (tackon wtarget "MUSIC"))
- )
-
- (complete 80)
-
- (copyfiles (source "REKO03:Default.WINM")
- (dest (tackon wtarget "MUSIC"))
- )
-
- (complete 90)
-
- (copyfiles (source "REKO03:Default.WINP")
- (dest (tackon wtarget "PICS"))
- )
-
- (complete 100)
-